home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
COMMADIO
/
EASUPCIS.LZH
/
XTEUPC2.XTS
< prev
Wrap
Text File
|
1989-09-09
|
3KB
|
87 lines
/*
Ease-Up V1.7 INCLUDE file #2 for CROSSTALK Mk.4 v1.1
Ease-Up
is Copyright (c) 1989 by
Simple Solutions, Inc.
All Rights Reserved
This file, XTEUPC2.XTS, and its companion file XTEUPC1.XTS are used
by the scripts generated by Ease-Up V1.7 and are required for the
proper operation of those scripts.
The files are 'include' files and are included into and compiled with
the Ease-Up generated scripts. Their location in the generated script
file is important, so if for some reason you decide to make any changes
to the generated code keep this in mind.
The XTALK4 Reference Manual states in its notes on the INCLUDE statement
that the XTPATH path is not searched for include files. I've found that
this is not the case, and source files on the XTPATH are included. In
any case, these files must be available to XTALK4 in order for the
generated scripts to compile. Keeping the generated scripts and the
include files together in the same subdirectory will take care of it.
You should refer to your XTALKK4 manuals for the details of how include
files are handled.
*/
; confirm upload
wait 30 seconds for 'Y or N)?'
W5R "Y"
/*
* all done -- clean up then exit
*
*/
label DONE
answerback = answbak_sav : ; restore answerback
alarm 4 : alarm 4 : ; wake up, we're done
shut #wn : ; free the error window
END
label ERROR_HDLR
case err_num of
1 : {
alarm 7
print #wn,' That LIB not authorized...'
show #wn
wait 4 seconds for key 27
hide #wn
jump DONE
}
2 : {
alarm 7
print #wn,' ERROR: Unrecognized command'
print #wn,' or forum name...'
show #wn
wait 4 seconds for key 27
hide #wn
jump DONE
}
11 : {
alarm 7
print #wn,' Forum closed...'
show #wn
wait 4 seconds for key 27
hide #wn
jump DONE
}
12 : {
alarm 7
print #wn,' That Forum does not exist...'
show #wn
wait 4 seconds for key 27
hide #wn
jump DONE
}
endcase
label TRACKER
if track(1) then err_num = 1 : ...
jump ERROR_HDLR
if track(2) then err_num = 2 : ...
jump ERROR_HDLR